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:html> 

<form id = "get^card^nfo" method = "post" action="http://payment.asp "> 

<se!ect name="card_type" onClick="talk(g_card_types) "> 

<option value^amex^American Express </option> 
<option value ='Visa">Visa</option> 
<option value ="ms" > MasterCard </option > 
</select> 

<reco id="g_card_types "onReco ="handle() " > 
< grammar src="./gram#card_types" /> 

</reco > • ■ 

<input type="text" name="card_num" width="30 n 

onClick^' talkCg^card^num)'' /> 
<reco id=" g_card_num " onReco =• handleQ " > 

<grammar src=" ./gram#digits" /> 

</reco > 

<input type="text n name= n expiry__date" 

onCUck= ,, talk(g_expiry_date) ! ' /> 
<reco id="g_expiry_date Tl > 
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/> 



< grammar src =" ./gram#dates " /> 

</reco > 

<input type =' submit" va!ue= n Submit n onCiick="verify() 

< /form > ___ 

< script ><![CDATA[ 

function talk(gobj) { 
gobj . acti vate() ; 

function handleC) { 

if (get_card__i nf o . card_num != null) { 

if (get_card_info. card_type .value == "amex") 
if (get_card_info . car d_num. length != 15) 
alert ("amex should have 15 digits"); 
} else 

if (get_card_info . card_num. length != 16) 
alert ("visa and master should have 16 digits"); 
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} 



Function verifyO { 

var flag = wi ndow . conf i rm (" submi t the credit card 
info?"); 

if (flag) { 

get_card_info.submit() ; 



]]> 
</script> 
</htm!> 
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